home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fxlaun / threadz.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.8 KB  |  128 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "F/X Launcher"
  5.    ClientHeight    =   3135
  6.    ClientLeft      =   3015
  7.    ClientTop       =   1785
  8.    ClientWidth     =   2325
  9.    Height          =   3540
  10.    Icon            =   THREADZ.FRX:0000
  11.    Left            =   2955
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   3135
  16.    ScaleWidth      =   2325
  17.    Top             =   1440
  18.    Width           =   2445
  19.    Begin CommandButton Command4 
  20.       Caption         =   "Undelete"
  21.       Height          =   375
  22.       Left            =   1200
  23.       TabIndex        =   6
  24.       Top             =   2520
  25.       Width           =   975
  26.    End
  27.    Begin PictureBox Picture4 
  28.       BorderStyle     =   0  'None
  29.       Height          =   495
  30.       Left            =   240
  31.       Picture         =   THREADZ.FRX:0302
  32.       ScaleHeight     =   495
  33.       ScaleWidth      =   615
  34.       TabIndex        =   3
  35.       Top             =   2400
  36.       Width           =   615
  37.    End
  38.    Begin CommandButton Command3 
  39.       Caption         =   "Search"
  40.       Height          =   375
  41.       Left            =   1200
  42.       TabIndex        =   5
  43.       Top             =   1800
  44.       Width           =   975
  45.    End
  46.    Begin PictureBox Picture3 
  47.       BackColor       =   &H00FFFFFF&
  48.       BorderStyle     =   0  'None
  49.       Height          =   495
  50.       Left            =   240
  51.       Picture         =   THREADZ.FRX:05D4
  52.       ScaleHeight     =   495
  53.       ScaleWidth      =   615
  54.       TabIndex        =   2
  55.       Top             =   1680
  56.       Width           =   615
  57.    End
  58.    Begin CommandButton Command2 
  59.       Caption         =   "F/X Find"
  60.       Height          =   375
  61.       Left            =   1200
  62.       TabIndex        =   4
  63.       Top             =   1080
  64.       Width           =   975
  65.    End
  66.    Begin PictureBox Picture2 
  67.       BorderStyle     =   0  'None
  68.       Height          =   495
  69.       Left            =   240
  70.       Picture         =   THREADZ.FRX:090A
  71.       ScaleHeight     =   495
  72.       ScaleWidth      =   615
  73.       TabIndex        =   1
  74.       Top             =   960
  75.       Width           =   615
  76.    End
  77.    Begin CommandButton Command1 
  78.       Caption         =   "F/X File"
  79.       Height          =   375
  80.       Left            =   1200
  81.       TabIndex        =   7
  82.       Top             =   360
  83.       Width           =   975
  84.    End
  85.    Begin PictureBox Picture1 
  86.       BorderStyle     =   0  'None
  87.       Height          =   495
  88.       Left            =   240
  89.       Picture         =   THREADZ.FRX:0BA0
  90.       ScaleHeight     =   495
  91.       ScaleWidth      =   615
  92.       TabIndex        =   0
  93.       Top             =   240
  94.       Width           =   615
  95.    End
  96. Sub Command1_Click ()
  97.     On Error Resume Next
  98.     If Shell("Fxfile.exe", 1) < 32 Then
  99.         Msg$ = "Unable To Launch" + Chr$(13) + UCase$("FxFile.exe")
  100.         MsgBox Msg$, 16, "ThreadZ"
  101.     End If
  102.     Form1.WindowState = 1
  103. End Sub
  104. Sub Command2_Click ()
  105.     On Error Resume Next
  106.     If Shell("Fxfind.exe", 1) < 32 Then
  107.         Msg$ = "Unable To Launch" + Chr$(13) + UCase$("FxFind.exe")
  108.         MsgBox Msg$, 16, "ThreadZ"
  109.     End If
  110.     Form1.WindowState = 1
  111. End Sub
  112. Sub Command3_Click ()
  113.     On Error Resume Next
  114.     If Shell("Fxsearch.exe", 1) < 32 Then
  115.         Msg$ = "Unable To Launch" + Chr$(13) + UCase$("Fxsearch.exe")
  116.         MsgBox Msg$, 16, "ThreadZ"
  117.     End If
  118.     Form1.WindowState = 1
  119. End Sub
  120. Sub Command4_Click ()
  121.     On Error Resume Next
  122.     If Shell("Fxundel.exe", 1) < 32 Then
  123.         Msg$ = "Unable To Launch" + Chr$(13) + UCase$("Fxundel.exe")
  124.         MsgBox Msg$, 16, "ThreadZ"
  125.     End If
  126.     Form1.WindowState = 1
  127. End Sub
  128.